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Pemrog. Berorientasi Objekdengan C#(Pertemuan ke -12) 


PERSIAPAN DATABASE “NORTHWIND" 


> Database Northwind adalah database yang akan digunakan sebagai contoh (sample] database dalam 
mempelajari materi Database (Sesi 6] dan LINQ (Sesi 7], 

> File database Northwind telah dilampirkan bersamakan dengan file Lecture Note ini, yakni file 

"North wind.rar”. 

> File "Northwind.rar” terdiri dari 3 file, yakni: 

1. "Northwnd.mdf" 

2. "Northwnd.ldf' 

3. "Northwind.sql” 

> Untuk memasukkan database Northwind ke dalam Microsoft SQL Server, dapat dilakukan dengan 2 
(dua] cara, yakni: 

1. Dengan Attach Database, yakni dengan menggunakan file "Northwnd.mdf' dan "Northwnd.ldf'. 
Untuk caranya, dapat dibuka kembali materi Basis Data Dasar dari semester lalu. 

2. Melalui eksekusi Query, dengan langkah berikut: 

a. Akses Microsoft SQL Server. 

b. Buat database baru dengan nama "Northwind". 

c. Pilih menu File | Open | File, kemudian baca file "Northwind.sql”, dan klik Open. Setelah itu, 
maka akan terbuka halaman Query yang berisikan perintah SQL dari isi file "Northwind.sql”. 

d. Pastikan database yang aktif adalah database "Northwind”. 

e. Lakukan Execute atau F5. 

> Apabila database Northwind telah berhasil dimasukkan ke dalam Microsoft SQL Server, maka pada 
endela Ob ject Explorer akan muncul daftar tabel dari database Northwind seperti berikut: 


Object Explorer 
Connect’ ^ 


’IX 


7 


0 LJ Databases 

0 [_j System Databases 
_^^^_Database_Sna£shot^_ 

nTalHHEi 

0 d Database Diagrams 
0 CS Tables 

0 'lJL System Tables 
0 d FileTables 
0 3 dbo.Categories 
0 3 dbo.CategoriesImages 
0 3 dbo.CustomerCustomerDemo 
0 3 dbo.CustomerDemographics 
0 3 dbo.Customers 
0 3 dbo.Employees 
0 3 dbo.EmployeesPhotos 
0 3 dbo.EmployeeTerritories 
0 3 dbo.Order Details 
0 3 dbo.Orders 
0 3 dbo.Products 
0 3 dbo.Region 
0 3 dbo.Shippers 
0 3 dbo.Suppliers 
0 3 dbo.Territories 
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PENJ ELASAN DARI SUDE ke-03 s/d 06 


> AD0.NET merupakan kumpulan kelas pada framework .NET yang memberikan akses ke database. 

> AD0.NET terdiri dari 3 komponen utama, yakni: 

1. Data Provider, digunakan untuk koneksi ke database. 

2. DataSet, digunakan untuk menyimpan dan mengelola DataTable. 

3. DataTable, digunakan untuk mengelola tabel. 

> Secara umum, Data Provider terdiri dari 4 kelas, yakni: 

1. Connection, digunakan untuk mengelola koneksi ke suatu Data Source (dapat berupa Database]. 

2. Command, digunakan untuk menyatakan statement SQL atau sejenisnya untuk keperluan 
penyisipan, pengeditan, penghapusan, atau pembacaan/pengambilan data dari suatu Data Source 
(dapat berupa Database], 

3. DataAdapter, dapat diilustrasikan sebagai "kurir data”, dimana bertugas mengambil atau 
mengirimkan data dari/ke Database, dan disimpan ke DataSet. Umumnya digunakan untuk bentuk 
arsitektur Disconnected. 

4. DataReader, digunakan untuk mengambil atau mengirimkan data dari/ke Database. Umumnya 
digunakan untuk bentuk arsitektur Connected. 

> Terdapat 2 bentuk arsitektur ADO.NET, yakni: 

1. Connected 

■ Memanfaatkan DataReader untuk mengambil atau mengirimkan data dari/ke Database secara 
online, dan dapat disimpan di buffer (DataTable] untuk kemudian diolah oleh aplikasi. 

■ Dikarenakan Client memodifikasi data dari/ke Database dalam keadaan online, jika jumlah 
traffic akses data oleh Client cukup tinggi, maka akan berpotensi membebani kerja server. Oleh 
karena ini, arsitektur ini juga dapat dikatakan sebagai Server-Based Architecture. 

2. Disconnected 

■ Memanfaatkan DataAdapter untuk mengambil atau mengirimkan data dari/ke Database secara 
buka/tutup koneksi, dan disimpan di buffer (DataSet] untuk kemudian diolah oleh aplikasi. 

■ Pada arsitektur ini, Client membuka koneksi ke server Database, kemudian lakukan transfer data 
dan disimpan ke DataSet, kemudian koneksi ditutup. Jika diperlukan, maka Client akan 
membuka koneksi lagi, lakukan transfer data, simpan kembali ke DataSet, dan kemudian tutup 
koneksi kembali, dan seterusnya. 

■ Dikarenakan Client memodifikasi data dari/ke Database secara buka/tutup koneksi, sehingga 
jika jumlah traffic akses data oleh Client cukup tinggi, tidak akan membebani kerja server. Oleh 
karena ini, arsitektur ini juga dapat dikatakan sebagai Client-Based Architecture. 

> Terdapat sejumlah Data Provider yang umum digunakan, tetapi untuk Mata Kuliah ini, kita 

menggunakan Data Provider Microsoft SQL Server.NET yang dikhususkan untuk DBMS SQL Server 

yang telah dipelajari di semester sebelumnya yakni di Mata Kuliah Basis Data Dasar dan Basis Data 

Lanjutan. 
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> Untuk mengakses Database dari aplikasi, yang paling utama adalah membuka koneksi, dimana koneksi 
yang dimaksud adalah koneksi antara aplikasi dengan Database. Koneksi dapat diilustrasikan "jalan tol” 
antara aplikasi dan Database. 

> Untuk membuka koneksi ke DBMS SQL Server dengan Framework.NET, maka diwajibkan untuk 
dilakukan import namespace "System.Data.SqlClient” dengan menuliskan statement berikut pada 
header dari halaman kode program : 

using System.Data.SqlClientj 

> Namespace System.Data.SqlClient merupakan kumpulan kelas yang digunakan untuk mengakses 
sumber data SQL Server secara sistematis. 

> Koneksi Database dinamakan juga sebagai Connection String, dimana kode program untuk melakukan 
koneksi dapat dituliskan menjadi 1 (satu] string. 

> Deklarasi Connection String, dilakukan melalui kelas SqlConnection. 

> Deklarasi Connection String untuk DBMS SQL Server dilakukan dengan format: 

SqlConnection connection = new SqlConnection ( 

"Server = <nama_server>; 

Data Source = <nama_datasource>; 

Database = <nama_database>; 

Integrated Security = SSPI"); 

Dengan keterangan : 

<nama_server> = Lokasi dari server database. Jika database berada pada PC/laptop dari aplikasi 

database yang dibangun (localhost], maka "Server = localhost”. 
<nama_datasource> = Nama dari akses server database. Untuk Microsoft SQL Server, Data Source 

diisikan dengan Server name dari login SQL Server. 



<nama_database> = Nama dari database yang ingin diakses. 
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PENJ ELASAN DARI SUDE ke-07 s/d 11 


> Untuk DBMS berbeda, maka format penulisan deklarasi Connection String juga berbeda. Kumpulan 
Connection String untuk semua DBMS, dapat diakses di: https://www.connectionstrings.com/ 

> Apabila koneksi Database tidak diperlukan lagi, maka dapat digunakan method "Close” atau "Dispose” 
untuk menutup koneksi objek bertipe kelas SqlConnection. Contohnya : 

conn.CloseQ; 

atau 

conn.Dispose(); 

> Perbedaan antara method "Close” atau "Dispose” untuk menutup koneksi adalah : 

• Close : Digunakan jika koneksi terkait akan digunakan kembali (sistem koneksi buka/tutup], Method 
ini hanya menutup koneksi saja, & tidak menghapus objek bertipe kelas SqlConnection dari memori. 
Method ini diilustrasikan "jalan tol” (koneksi Database] ditutup untuk sementara (tidak boleh 
dilintasi oleh siapapun]. 

• Dispose : Digunakan jika koneksi terkait hanya digunakan 1 (satu] kali saja. Method ini selain 
menutup koneksi, juga menghapus objek bertipe kelas SqlConnection dari memori. Method ini 
diilustrasikan "jalan tol” (koneksi Database] dirubuhkan total, sehingga tidak bisa dilintasi lagi oleh 
siapapun. 
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PENJ ELASAN DARI SUDE ke-12 s/d 14 


> Command merupakan kelas yang digunakan untuk mengeksekusi DML (Data Manipulation String] dari 
SQL, yakni perintah INSERT, UPDATE, DELETE, dan SELECT. 

> Umumnya digunakan untuk arsitektur Connected. 

> Untuk mengeksekusi DML dari DBMS SQL Server, maka kelas yang digunakan adalah bertipe 

SqlCommand. 

> Pendeklarasian Command dapat berupa : 

SqlCommand command = new SqlCommand(); 

Adalah untuk mendeklarasikan objek bertipe kelas SqlCommand dengan tanpa parameter, atau dapat 
juga ditulis menjadi: 

SqlCommand command = new SqlCommand(<perintah SQL>j <connection string>); 

Adalah untuk mendeklarasikan objek bertipe kelas SqlCommand dengan 2 parameter berupa perintah 
DML SQL dan objek Connection String yang akan digunakan untuk mengeksekusi DML SQL. 

> Apabila mendeklarasi Command dengan tanpa parameter, maka dapat digunakan statement berikut 
untuk menyatakan perintah DML SQL dan Connection String yang akan digunakan untuk mengeksekusi 
DML SQL secara terpisah : 

• "command.CommandText = <perintah SQL>;” 

Untuk menyatakan perintah DML SQL secara terpisah. 

• "command.Connection = cconnection string>;” 

Untuk menyatakan Connection String yang akan digunakan untuk mengeksekusi DML SQL secara 
terpisah. 

> Perintah DML SQL yang dinyatakan ke dalam Command, tidak akan secara langsung dieksekusi, tetapi 
memerlukan statement lain untuk pernyataan eksekusi. 

> Pernyataan eksekusi untuk perintah DML SQL berupa INSERT, UPDATE, dan DELETE adalah 

ExecuteNonQuery. 

> Pernyataan eksekusi untuk perintah DML SQL berupa SELECT adalah ExecuteScalar atau 

ExecuteReader. 
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PENJ ELASAN DARI SUDE ke-15 s/d 29 


[Slide 15 s/d 21] 

> ExecuteNonQuery digunakan sebagai pernyataan eksekusi perintah DML SQL berupa INSERT, 
UPDATE, dan DELETE yang telah disisipkan ke dalam objek bertipe kelas SqlCommand. 

> Method ExecuteNonQuery akan mengembalikan hasil eksekusi berupa nilai integer yang menyatakan 
jumlah record yang berhasil di-INSERT, UPDATE, atau DELETE. 

> Hasil eksekusi akan mengembalikan nilai bertipe integer yang menyatakan jumlah record yang berhasil 
disisipkan (INSERT], diedit (UPDATE], atau dihapus (DELETE], 

> Apabila perintah DML SQL (INSERT, UPDATE, atau DELETE] gagal dieksekusi, maka nilai kembaliannya 
akan bernilai 0 (Nol], 

[Slide 22 s/d 24] 

> ExecuteScalar merupakan salah satu method pernyataan eksekusi untuk perintah DML SQL berupa 
SELECT yang telah disisipkan ke dalam objek bertipe kelas SqlCommand. 

> Umumnya digunakan untuk arsitektur Connected. 

> Method ExecuteScalar akan mengembalikan nilai tunggal berupa baris dan kolom pertama dari tabel 
lasil eksekusi SELECT. 

m Results _j Messages 



Kode 

Nama 

lumlah 

1 

( K001 

Indomie 

50 

2 

K002 

Bimoli 

25 

3 

K003 

Garam 

32 

4 

K004 

Gula 

78 

5 

K005, 

Kacang Polong 

12 


Nilai kembalian ExecuteScalar 


> Contoh-1 untuk potongan kode program penggunaan ExecuteScalar dengan database "Northwind” : 
SqlConnection conn = new SqlConnection( 

"Server = localhost; Source = localhost\\< nama PataSource >; 

Database = Northwind; Integrated Security = SSPI;"); 
conn.Open(); 

SqlCommand cmd = new SqlCommand ("Select * From Customers", conn); 
string nilai = cmd.ExecuteScalar().ToString(); 

MessageBox.Show(nilai); 


7 












*^MIKROSKIL 
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Dari perintah SQL di atas, jika dieksekusi di dalam Microsoft SQL Server, maka hasilnya adalah : 

a Results __ j Messages 



C list nmprTD 

CompanyName 

Cont 

1 

| ALFKI 

Alfreds Futterkiste 

Mari 

2 

^ ANAIK - 

Ana Trujillo Empareda... 

Ana 

3 

ANTON 

Antonio Moreno Taqueria 

Anto 

4 

AROUT 

Around the Horn 

Thom 

S 

BERGS 

Berglunds snabbkop 

Chri 

c. 

PI AIIC 

R 1 ti mr Cnn Drvl n l/Thnrrnn 

U^nn 


Dari hasil query dengan perintah ExecuteScalar tersebut, akan mengembalikan 1 (satu] nilai tunggal 
berupa nilai dari baris & kolom pertama, yakni "ALFKI". 


> 


Contoh-2 untuk potongan kode program penggunaan ExecuteScalar dengan database “Northwind”: 
SqlConnection conn = new SqlConnection( 

"Server = localhost; Data Source = localhostWc nama PataSource >; 

Database = Northwind; Integrated Security = SSPI;" ); 
conn.Open(); 

SqlCommand cmd = new SqlCommand( 

"Select ProductName, ProductID, UnitPrice From Products", conn); 
string nilai = cmd.ExecuteScalar().ToString(); 

MessageBox.Show( nilai); 

Dari perintah SQL di atas, jika dieksekusi di dalam Microsoft SQL Server, maka hasilnya adalah : 


3 Results 


ua 


Messages 


1 

2 

3 

4 

5 


ProductNamp 


Chai 


Tnang 

Aniseed Syrup 

Chef Anton’s Cajun Se.. 

Chef Anton's Gumbo Mix 


ProductID 

1 

2 

3 

4 

5 


UnitPri 

18,00 

19,00 

10,00 

22,00 

21,35 


G Grandma ' RnvRpnhprrv. . . fi 2S.00 

Dari hasil query dengan perintah ExecuteScalar tersebut, akan mengembalikan 1 (satu] nilai tunggal 

berupa nilai dari baris & kolom pertama, yakni "Chai”. 
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> 


Contoh-3 untuk potongan kode program penggunaan ExecuteScalar dengan database “Northwind" : 
SqlConnection conn = new SqlConnection( 

"Server = localhost; Data Source = localhostWc nama DataSource >; 

Database = Northwind; Integrated Security = SSPI;"); 
conn.Open(); 

SqlCommand cmd = new SqlCommand( 

"Select ShipCountry, CustomerlD, Freight From Orders 
Order By Freight Desc", conn); 
string nilai = cmd.ExecuteScalar().ToString(); 

MessageBox.Show(nilai); 

Dari perintah SQL di atas, jika dieksekusi di dalam Microsoft SQL Server, maka hasilnya adalah : 

S Results | Sa Messages 


Shipf.mm.tr y 

CustomerlD 

Freight 

Germany 

QUICK 

1007,64 

Brazil 

QUEEN 

890,78 

USA 

SAVEA 

830,75 

Germany 

QUICK 

810,05 

Austria 

ERNSH 

789,95 

Ai ictni a 

prm<;h 

7P/I OP 


1 
2 

3 

4 

5 

e 

Dari hasil query dengan perintah ExecuteScalar tersebut, akan mengembalikan 1 (satu] nilai tunggal 
berupa nilai dari baris & kolom pertama, yakni “Germany". 


[Slide 25 s/d 29] 

> ExecuteReader merupakan salah satu method pernyataan eksekusi untuk perintah DML SQL berupa 
SELECT yang telah disisipkan ke dalam objek bertipe kelas SqlCommand. 

> Umumnya digunakan untuk arsitektur Connected. 

> Method ExecuteReader akan mengembalikan hasil eksekusi berupa tabel hasil eksekusi query SELECT. 

> Nilai tabel hasil kembalian dari eksekusi method ExecuteReader adalah bertipe SqlDataReader, 
dimana di dalamnya dapat terdiri dari sejumlah record. 

> Untuk membaca record-record dari nilai tabel hasil kembalian dari eksekusi method ExecuteReader 
tersebut, diperlukan method "Read" dari objek bertipe SqlDataReader yang dipadukan dengan 
perulangan, dimana setiap perulangan akan membaca 1 (satu] record. Setiap nilai dari field dari masing- 
masing record dapat dibaca berdasarkan tipe data dari field dengan method : 

1. GetBoolean (index kolom field) 

2. GetByte (index kolom field) 

3. GetChar (index kolom field) 

4. GetDateTime (index kolom field) 

5 . GetDecimal (index kolom field) 

6 . GetDouble (index kolom field) 

7. GetFloat (index kolom field) 

8 . Getlntl6 (index kolom field) 

9. Getlnt32 (index kolom field) 

10. Getlnt64 (index kolom field) 

11. GetString (index kolom field) 
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Pemrog. Berorierrtasi Objekdengan C#(Rertemuan ke -12) 


CONTOH KASUS SEDERHANA - 1 


Untuk contoh kasus sederhana dari program akses database dengan arsitektur Connected, dapat dilihat 
contoh berikut: 

1. Bangun sebuah database pada Microsoft SQL Server dengan nama "dbTesting”, kemudian di dalam database 
tersebut, bangun sebuah tabel dengan nama "tblMhs” dengan struktur tabel sebagai berikut: 


Column Name 

Data Type 

Allow Nulls 

NIM 

varchar(9) 

□ 

Nama 

varchar(IOO) 

0 

Nilai 

int 

0 

► | 


□ 


2. Rancang tampilan Windows Form Application sebagai berikut: 



(4) mskNIM 


(5) btnCari 


(6) txtNama 


(7) nudNilai 


(1) labell 4 


(2) Iabel2 <■ 


(3) Iabel3 -4 


(8) btnBaru 


(9) btnSimpan 


(10) btnEdit 


(11) btnHapus 


3. Untuk masing-masing objek dari rancangan tampilan di atas, memiliki keterangan Properties sebagai 
berikut: 

a. Untuk Properties dari Form : _ 


Properties 

Keterangan 

Font 

Name = Consolas 


Size = 12 


Style = Bold 


b. Untuk Properties dari Label “labell" (1) : 


Properties 

Keterangan 

Name 

"labell” 

Text 

"NIM 
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Pemrog. Berorientasi Objekdengan C#(Rertemuan ke -12) 


CONTOH KASUS SEDERHANA - 1 


c. Untuk Properties dari Label ‘'labeI2'’ (2) : 



Properties 

Keterangan 


Name 

"label2" 


Text 

"Nama 

d. 

Untuk Properties dari Label "label3” (3) : 


Properties 

Keterangan 


Name 

"label3” 


Text 

"Nilai 

e. 

Untuk Properties dari MaskedTextBox "mskNIM” (4) : 


Properties 

Keterangan 


Name 

"mskNIM” 


Text 

<Kosongkan> 

f. 

Untuk Properties dari Button "btnCari” (5) : 


Properties 

Keterangan 


Name 

"btnCari” 


Text 

"Cari” 

& 

Untuk Properties dari TextBox "txtNama" (6) : 


Properties 

Keterangan 


Name 

"txtNama” 


Text 

<Kosongkan> 

h. 

Untuk Properties dari NumericUpDown "nudNilai" (7) : 


Properties 

Keterangan 


Name 

"nudNilai” 

i. 

Untuk Properties dari Button "btnBaru” (8) : 


Properties 

Keterangan 


Name 

"btnBaru” 


Text 

"Baru” 

j- 

Untuk Properties dari Button "btnSimpan" (9) : 


Properties 

Keterangan 


Name 

"btnSimpan” 


Text 

"Simpan" 
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Pemrog. Berorientasi Objekdengan C#(Rertemuan ke -12) 


CONTDH KASUS SEDERHANA - 1 


k. Untuk Properties dari Button “btnEdit” (10) : 


Properties 

Keterangan 

Name 

"btnEdit” 

Text 

"Edit” 


1. Untuk Properties dari Button “btnHapus" (11) : 


Properties 

Keterangan 

Name 

"btnHapus” 

Text 

"Hapus” 


4. Tampilan di atas memiliki deklarasi pada header yakni: 

using System.Data.SqlClient; 

5. Tampilan di atas memiliki deklarasi variable global yakni: 

SqlConnection conn; 

SqlCommand cmd; 

Dideklarasikan 2 (dua] buah objek untuk keperluan koneksi dan Command. 

6. Untuk masing-masing objek dari rancangan tampilan di atas, memiliki Event dengan kode program sebagai 
berikut: 

a. Event "Load” dari Form : 

conn = new SqlConnection( "Server = localhost; 

Data Source = localhost\\< nama DataSource> ; 
Database = dbTesting; 

Integrated Security = SSPI"); 

conn.OpenQ; 
cmd = new SqlCommand (); 
cmd.Connection = conn; 
mskNIM.Mask = "000000000"; 
nudNilai.Minimum = 0; 
nudNilai.Maximum = 100; 
btnBaru_Click(nullj null); 

Penjelasan untuk kode program di atas adalah : 

> Untuk potongan kode program : 

conn = new SqlConnection("Server = localhost; 

Data Source = localhost\\< nama DataSource> ; 
Database = dbTesting; 

Integrated Security = SSPI"); 

conn.OpenQ; 

cmd = new SqlCommand Q; 

cmd.Connection = conn; 
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CONTDH KASUS SEDERHANA - 1 


Membuka koneksi database pada SqlConnection "conn”, dimana lokasi Server berada pada 
localhost. 

Untuk < nama DataSource > disesuaikan dengan nama dari lokasi database yang ada pada 
localhost anda sendiri, dan database yang diakses adalah database "dbTesting” yang telah 
dibuatkan di atas. 

Membuat objek Command "cmd" kemudian menyatakan koneksi dari Command "cmd” 
adalah menggunakan SqlConnection "conn". 

> Untuk potongan kode program : 

mskNIM.Mask = "000000000"; 
nudNilai.Minimum = 0; 
nudNilai.Maximum = 100; 
btnBaru_Click(nullj null); 

Mengatur format mask dari MaskedTextBox "mskNIM” dengan hanya dapat menerima angka 
9 [sembilan] digit dan bersifat wajib. 

Mengatur batasan nilai dari NumericUpDown "nudNilai” antara 0 s/d 100. 

Memanggil prosedur event "Click” dari Button "btnBaru". 

b. Event "Click” dari Button "btnBaru”: 

mskNIM.Clear(); 
btnCari.Enabled = false; 
txtNama.Clear(); 
txtNama.Enabled = false; 
nudNilai.Value = 0; 
nudNilai.Enabled = false; 
btnSimpan.Enabled = false; 
btnEdit.Enabled = false; 
btnHapus.Enabled = false; 
mskNIM.Focus(); 

Penjelasan untuk kode program di atas adalah : 

Membersihkan isi dari MaskedTextBox "mskNIM". 

Mengnon-aktifkan Button "btnCari”. 

Membersihkan isi dan mengnon-aktifkan TextBox "txtNama". 

Menset nilai menjadi 0 dan mengnon-aktifkan NumericUpDown "nudNilai”. 
Mengnon-aktifkan Button "btnSimpan”. 

Mengnon-aktifkan Button "btnEdit”. 

Mengnon-aktifkan Button "btnHapus”. 

Menyatakan kursor aktif ada pada MaskedTextBox "mskNIM”. 

c. Event "TextChanged” dari MaskedTextBox "mskNIM”: 

if (mskNIM.MaskCompleted) 
btnCari.Enabled = true; 
else 

btnCari.Enabled = false; 
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CONTOH KASUS SEDERHANA - 1 


Penjelasan untuk kode program di atas adalah : 

Jika semua mask terisi nilai, maka 
Mengaktifkan Button "btnCari” 

Jika tidak, maka 

Mengnon-aktifkan Button "btnCari” 

d. Event "Click” dari Button "btnCari” : 

string sql = String. Format( 

"Select * From tblMhs Where NIM = mskNIM.Text); 

cmd.CommandText = sql; 
if (reader.HasRows) 

while (reader.Read()) { 

txtNama.Text = reader.GetString(l); 
nudNilai.Value = (decimal)reader.GetInt32(2); 
btnSimpan.Enabled = false; 
btnEdit.Enabled = true; 
btnHapus.Enabled = true; 

> 

else { 

txtNama.Clear(); 
nudNilai.Value = 0; 
btnSimpan.Enabled = true; 
btnEdit.Enabled = false; 
btnHapus.Enabled = false; 

> 

txtNama.Enabled = true; 
nudNilai.Enabled = true; 
reader.Close(); 

Penjelasan untuk kode program di atas adalah : 

> Untuk potongan kode program : 

string sql = String. Format( 

"Select * From tblMhs Where NIM = '{0}'", mskNIM.Text); 
cmd.CommandText = sql; 

SqlDataReader reader = cmd.ExecuteReaderQ; 

Menyatakan perintah SQL ke dalam Command "cmd” berupa SELECT untuk meng-query 
semua record dari tabel "tblMhs” dengan kriteria field "NIM” bernilai NIM yang diinput ke 
dalam MaskedTextBox "mskNIM”. 

Perintah SQL tersebut kemudian dieksekusi dengan method ExecuteReader, dan hasil 
querynya berupa record akan dikembalikan ke SqlDataReader "reader”. 
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> Untuk potongan kode program : 

if (reader.HasRows) 

while (reader.Read()) { 

txtNama.Text = reader.GetString(l); 
nudNilai.Value = (decimal)reader.GetInt32(2); 
btnSimpan.Enabled = false; 
btnEdit.Enabled = true; 
btnHapus.Enabled = true; 

> 

else { 

txtNama.ClearQ; 
nudNilai.Value = 0; 
btnSimpan.Enabled = true; 
btnEdit.Enabled = false; 
btnHapus.Enabled = false; 

> 

Jika hasil query di dalam SqlDataReader "reader” memiliki record, maka : 

Lakukan perulangan membaca setiap record dari SqlDataReader "reader”, dimana untuk 
setiap record dilakukan : 

TextBox "txtNama” diisikan dengan nilai field indeks-1 ("Nama”] dari record yang 
dibaca. 

NumericUpDown "nudNilai” diisikan dengan nilai field indeks-2 ["Nilai”] dari 
record yang dibaca. 

Mengnon-aktifkan Button "btnSimpan". 

Mengaktifkan Button "btnEdit”. 

Mengaktifkan Button "btnEdit”. 

Jika hasil query tidak memiliki record, maka : 

Membersihkan isi dari TextBox "txtNama". 

Menset nilai menjadi 0 pada NumericUpDown "nudNilai”. 

Mengaktifkan Button "btnSimpan”. 

Mengnon-aktifkan Button "btnEdit". 

Meng non-aktifkan Button "btnEdit”. 

> Untuk potongan kode program : 

txtNama.Enabled = true; 
nudNilai.Enabled = true; 
reader.Close(); 

Mengaktifkan TextBox "txtNama". 

Mengaktifkan NumericUpDown "nudNilai". 

Menghapus objek SqlDataReader "reader”. 
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e. Event "Click” dari Button "btnSimpan”: 

string sql = String. Format( 

"Insert Into tblMhs Values ('{0}'., ' {1 }', {2})", 
mskNIM.Text, txtNama.Text , nudNilai.Value); 
cmd.CommandText = sql; 
int status = cmd.ExecuteNonQueryQ; 
if (status > 0) 

MessageBox.Show("Data Tersimpan", "Simpan"); 
else 

MessageBox.Show("Gagal Disimpan", "Simpan"); 
btnBaru_Click(nullj null); 

Penjelasan untuk kode program di atas adalah : 

Menyatakan perintah SQL ke dalam Command "cmd” berupa INSERT untuk menyisipkan 
record baru yang terdiri dari 3 field, yakni field "NIM” diambil dari nilai MaskedTextBox 
"mskNIM”, field "Nama” diambil dari TextBox "txtNama”, dan field "Nilai” dari 

NumericUpDown "nudNilai” ke dalam tabel "tblMhs". 

Perintah SQL tersebut kemudian dieksekusi dengan method ExecuteNonQuery, dan hasil 
eksekusinya berupa jumlah record yang berhasil disisipkan akan dikembalikan ke variabel 

"status”. 

Jika nilai variabel "status” > 0 (ada record yang berhasil disisipkan], maka : 

Cetak kotak pesan berjudul "Simpan” dan isi pesan adalah "Data Tersimpan”. 

Jika tidak, maka : 

Cetak kotak pesan berjudul "Simpan” dan isi pesan adalah "Gagal Disimpan". 

Memanggil prosedur event "Click” dari Button "btnBaru”. 

f. Event "Click” dari Button "btnEdit” : 

string sql = String. Format( 

"Update tblMhs Set Nama = '{0}', Nilai = {1} Where NIM = 1 {2 }'" , 
txtNama.Text , nudNilai.Value, mskNIM.Text); 
cmd.CommandText = sql; 
int status = cmd.ExecuteNonQueryQ; 
if (status > 0) 

MessageBox.Show("Data Teredit", "Edit"); 
else 

MessageBox.Show( "Gagal Diedit", "Edit"); 
btnBaru_Click(null, null); 

Penjelasan untuk kode program di atas adalah : 

Menyatakan perintah SQL ke dalam Command "cmd” berupa UPDATE untuk mengedit record 
dari tabel "tblMhs” untuk field "Nama” diambil dari nilai TextBox "txtNama” dan field "Nilai” 
diambil dari NumericUpDown "nudNilai” dengan kriteria field "NIM” bernilai NIM yang 
diinput ke dalam MaskedTextBox "mskNIM”. 

Perintah SQL tersebut kemudian dieksekusi dengan method ExecuteNonQuery, dan hasil 
eksekusinya berupa jumlah record yang berhasil diedit akan dikembalikan ke variabel 

"status". 


16 




^^MIKROSKIL 


Pemrog. Berorientasi Objekdengan C#(Rertemuan ke -12) 


CONTOH KASUS SEDERHANA - 1 


Jika nilai variabel "status” > 0 (ada record yang berhasil diedit], maka : 

Cetak kotak pesan berjudul "Edit” dan isi pesan adalah "Data Teredit”. 

Jika tidak, maka : 

Cetak kotak pesan berjudul "Edit” dan isi pesan adalah "Gagal Diedit”. 

Memanggil prosedur event "Click” dari Button "btnBaru". 

g. Event "Click” dari Button "btnHapus”: 

string sql = String. Format( 

"Delete From tblMhs Where NIM = '{0}'", mskNIM.Text); 
cmd.CommandText = sql; 
int status = cmd.ExecuteNonQueryQ; 
if (status > 0) 

MessageBox.Show("Data Terhapus", "Hapus"); 
else 

MessageBox.Show("Gagal Dihapus", "Hapus"); 
btnBaru_Click(nullj null); 

Penjelasan untuk kode program di atas adalah : 

Menyatakan perintah SQL ke dalam Command "cmd” berupa DELETE untuk menghapus 
semua record dari tabel "tblMhs” dengan kriteria field "NIM” bernilai NIM yang diinput ke 
dalam MaskedTextBox "mskNIM”. 

Perintah SQL tersebut kemudian dieksekusi dengan method ExecuteNonQuery, dan hasil 
eksekusinya berupa jumlah record yang berhasil dihapuskan akan dikembalikan ke variabel 

"status”. 

Jika nilai variabel "status” > 0 [ada record yang berhasil dihapuskan], maka : 

Cetak kotak pesan berjudul "Hapus” dan isi pesan adalah "Data Terhapus”. 

Jika tidak, maka : 

Cetak kotak pesan berjudul "Hapus” dan isi pesan adalah "Gagal Dihapus”. 

Memanggil prosedur event "Click” dari Button "btnBaru". 

h. Event "FormClosing" dari Form : 

conn.CloseQ; 

conn.Dispose(); 

Penjelasan untuk kode program di atas adalah : 

Saat user menutup contoh program ini, maka akan dieksekusi event ini dengan proses berupa 
menutup koneksi database "dbTesting”, dan kemudian menghapus isi dari objek 

SqlConnection "conn". 
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7. Dari contoh kasus sederhana ini, jika setelah selesai dirancang dan dituliskan kode program untuk 
Event yang ada di atas, maka akan memiliki tampilan video sebagai berikut: 
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> DataSet merupakan buffer untuk penyimpanan sementara koleksi DataTable berupa tabel hasil 
eksekusi perintah query SELECT. 

> Di dalam DataSet dapat menyimpan 1 tabel atau banyak tabel, dapat juga menyimpan tabel hasil join 
table berdasarkan perintah query kompleks. 

> Untuk dapat menyimpan tabel hasil eksekusi perintah query SELECT ke dalam DataSet, harus 
menggunakan kelas DataAdapter, dimana DataAdapter diilustrasikan sebagai "kurir” yang bertugas 
mengambil atau mengirimkan data dari/ke Database. 

> Umumnya digunakan untuk arsitektur Disconnected. 

> Dengan menggunakan DataAdapter, kita juga dapat melakukan eksekusi perintah DML SQL berupa 
INSERT, UPDATE, DELETE, dan SELECT yang disesuaikan dengan jenis perintahnya. 

> Khusus untuk perintah DML SQL berupa INSERT, UPDATE, dan DELETE, pernyataan eksekusi tetap 
harus menggunakan method ExecuteNonQuery. 
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Untuk contoh kasus sederhana dari program akses database dengan arsitektur Disconnected dengan Data 
Adapter, dapat dilihat contoh berikut: 

1. Database dan tabel yang digunakan adalah database "dbTesting” dan tabel "tblMhs” yang telah dibuatkan 
dari Contoh Kasus Sederhana-1 di atas. 

2. Tampilan program yang digunakan adalah sama dengan tampilan dari Contoh Kasus Sederhana-1 di atas. 

3. Untuk masing-masing objek dari rancangan tampilan adalah sama dengan keterangan Properties dari 
Contoh Kasus Sederhana-1 di atas. 

4. Tampilan program tetap memiliki deklarasi pada header yakni: 

using System.Data.SqlClient; 

5. Tampilan program memiliki deklarasi variable global yakni: 

SqlConnection conn; 

SqlDataAdapter da; 

Dideklarasikan 2 (dua] buah objek untuk keperluan koneksi dan DataAdapter. 


6. Untuk masing-masing objek dari rancangan tampilan tersebut, memiliki Event dengan perubahan kode 
program sebagai berikut: 

a. Event "Load” dari Form : 


conn = new SqlConnection("Server = localhost; 

Data Source = localhost\\<nama_DataSource>; 
Database = dbTesting; 

Integrated Security = SSPI"); 


conn.Open(); 

da = new SqlDataAdapter(); 

mskNIM.Mask = "000000000"; 
nudNilai.Minimum = 0; 
nudNilai.Maximum = 100; 
btnBaru_Click(null, null); 


diganti 

menjadi 


cmd = new SqlCommand(); 
cmd.Connection = conn; 

Potongan kode program dari 
Contoh Kasus Sederhana-1 


Penjelasan dari kode program yang berubah di atas adalah : 

Membuat objek SqlDataAdapter "da” untuk keperluan menerima perintah SQL nantinya. 


b. Event "Click” dari Button "btnBaru”: 

Tidak ada perubahan. Semua kode program pada event ini tetap sama dengan Contoh Kasus 
Sederhana-1. 


c. Event "TextChanged” dari MaskedTextBox "mskNIM": 

Tidak ada perubahan. Semua kode program pada event ini tetap sama dengan Contoh Kasus 
Sederhana-1. 
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d. Event "Click” dari Button "btnCari”: 
string sql = String. Format( 

"Select * From tblMhs Where NIM = '{0}'". mskNIM.Text); 
da.SelectCommand = new SqlCommand(sql, conn); 
SqlDataReader reader = da.SelectCommand.ExecuteReaderQ; 
if (reader.HasRows) 

while (reader.Read()) { 


txtNama.Text = reader.GetString(l); 
nudNilai.Value = (decimal)reader .Getlnt32(2); 
btnSimpan.Enabled = false; 
btnEdit.Enabled = true; 
btnHapus.Enabled = true; 


diganti 

menjadi 


} 


cmd.CommandText = sql; 

SqlDataReader reader = cmd.ExecuteReaderQ; 


else { 

txtNama.ClearQ; 
nudNilai.Value = 0 


Potongan kode program dari 
Contoh Kasus Sederhana-1 


btnSimpan.Enabled = true; 


btnEdit.Enabled = false; 
btnHapus.Enabled = false; 

} 

txtNama.Enabled = true; 
nudNilai.Enabled = true; 
reader.Close(); 

Penjelasan dari kode program yang berubah di atas adalah : 

Perintah SQL berupa SELECT tersebut dieksekusi dengan method ExecuteReader yang 
dipanggil dari method SelectCommand dari SqlDataAdapter "da”, dan kemudian hasil 
eksekusi [query] berupa record akan dikembalikan ke SqlDataReader "reader”. 
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e. 


Event "Click” dari Button "btnSimpan”: 


string sql = String. Format( 

"Insert Into tblMhs Values ('{0}', '{1} ’ „ {2})" 
mskNIM.Text, txtNama.Text, nudNilai.Value); 
da.InsertCommand = new SqlCommand(sql, conn); 
int status = da.InsertCommand.ExecuteNonQuery(); 
if (status > 0) 

MessageBox.Show("Data Tersimpan", "Simpan"); 
else 

MessageBox.Show("Gagal Disimpan", "Simpan"); 
btnBaru_Click(null, null); 


diganti 

menjadi 


cmd.CommandText = sql; 

int status = cmd. ExecuteNonQueryO; 


Potongan kode program dari 
Contoh Kasus Sederhana-1 


Penjelasan dari kode program yang berubah di atas adalah : 

Perintah SQL berupa INSERT tersebut dieksekusi dengan method ExecuteNonQuery yang 
dipanggil dari method InsertCommand dari SqlDataAdapter "da”, dan kemudian hasil 
eksekusi berupa jumlah record yang berhasil disisipkan akan dikembalikan ke variabel 

"status”. 


f. Event "Click” dari Button "btnEdit”: 


string sql = String. Format( 

"Update tblMhs Set Nama = '{0}', Nilai = {1} Where NIM 
txtNama.Text, nudNilai.Value, mskNIM.Text); 


= '{ 2 } 


da.UpdateCommand = new SqlCommand(sql, conn); 
int status = da.UpdateCommand.ExecuteNonQueryO; 


if (status > 0) 

MessageBox.Show("Data Teredit", "Edit"); 
else 

MessageBox.Show("Gagal Diedit", "Edit"); 
btnBaru_Click(null, null); 


diganti 

menjadi 


i ii 

y 


cmd.CommandText = sql; 

int status = cmd.ExecuteNonQueryO; 


Potongan kode program dari 
Contoh Kasus Sederhana-1 
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Penjelasan dari kode program yang berubah di atas adalah : 

Perintah SQL berupa UPDATE tersebut dieksekusi dengan method ExecuteNonQuery yang 
dipanggil dari method UpdateCommand dari SqlDataAdapter "da", dan kemudian hasil 
eksekusi berupa jumlah record yang berhasil diedit akan dikembalikan ke variabel "status”. 

g. Event "Click" dari Button "btnHapus": 

string sql = String. Format( 

"Delete From tblMhs Where NIM = mskNIM. Text); 


da.DeleteCommand = new SqlCommand(sqlj conn); 
int status = da.DeleteCommand.ExecuteNonQuery(); 

<+-- 

i 

if (status > 0) 

MessageBox.Show("Data Terhapus", "Hapus"); 
else 

MessageBox.Show("Gagal Dihapus", "Hapus"); 
btnBaru_Click(null, null); 

i 

i diganti 

1 menjadi 

i 

i 

i 

_i_ 


cmd.CommandText = sql; 

int status = cmd.ExecuteNonQueryQ; 


Potongan kode program dari 
Contoh Kasus Sederhana-1 


Penjelasan dari kode program yang berubah di atas adalah : 

Perintah SQL berupa DELETE tersebut dieksekusi dengan method ExecuteNonQuery yang 
dipanggil dari method DeleteCommand dari SqlDataAdapter "da", dan kemudian hasil 
eksekusi berupa jumlah record yang berhasil dihapuskan akan dikembalikan ke variabel 

"status". 

h. Event "FormClosing" dari Form : 

Tidak ada perubahan. Semua kode program pada event ini tetap sama dengan Contoh Kasus 
Sederhana-1. 


7. Dari contoh kasus sederhana ini, jika setelah selesai dirancang dan dituliskan kode program untuk 
Event yang ada di atas, maka akan memiliki tampilan video yang sama dengan video dari Contoh Kasus 
Sederhana-1. 
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Untuk contoh kasus sederhana dari program akses database dengan arsitektur Disconnected dengan 
DataSet, dapat dilihat contoh berikut: 

1. Database yang digunakan untuk contoh kasus sederhana ini adalah database "Northwind”. 

2. Rancang tampilan Windows Form Application sebagai berikut: 


(6) I bl Prod Name (7) IblCate (8) IblDesc 


(1) labell 

(2) Iabel2 

(3) Iabel3 

(4) Iabel4 

(5) labels 


(11) btnFirst (12) btnPrev (13) Ibllnfo (14) btnNext (15) btnLast 



<■ 


3. Untuk masing-masing objek dari rancangan tampilan di atas, memiliki keterangan Properties sebagai 
berikut: 

a. Untuk Properties dari Form : _ 


Properties 

Keterangan 

Font 

Name = Consolas 


Size = 12 


Style = Bold 


b. Untuk Properties dari Label “labell" (1) : 


Properties 

Keterangan 

Name 

"labell" 

Text 

"Product Name 


c. Untuk Properties dari Label “labe!2" (2) : 


Properties 

Keterangan 

Name 

"label2” 

Text 

"Category 
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d. Untuk Properties dari Label "labeB 1 ' (3) : 


Properties 

Keterangan 

Name 

"label3” 

Text 

"Description 


e. Untuk Properties dari Label “labe!4" (4) : 


Properties 

Keterangan 

Name 

"label4” 

Text 

"Unit Price 


f. Untuk Properties dari Label "labe!5" (5) : 


Properties 

Keterangan 

Name 

"label5” 

Text 

"Units In Stock 


g. Untuk Properties dari Label “lblProdName” (6) : 


Properties 

Keterangan 

Name 

"lblProdName” 

AutoSize 

False 

Borders tyle 

FixedSingle 

Text 

"" <Kosongkan> 

TextAlign 

MiddleLeft 


h. Untuk Properties dari Label “lblCate 1 ' (7) : 


Properties 

Keterangan 

Name 

"lblCate” 

AutoSize 

False 

Borders tyle 

FixedSingle 

Text 

<Kosongkan> 

TextAlign 

MiddleLeft 


i. Untuk Properties dari Label “lblDesc" (8) : 


Properties 

Keterangan 

Name 

"lblDesc” 

AutoSize 

False 

Borders tyle 

FixedSingle 

Text 

<Kosongkan> 

TextAlign 

MiddleLeft 
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j. Untuk Properties dari Label “lblPrice” (9) : 


Properties 

Keterangan 

Name 

"lblPrice" 

AutoSize 

False 

Borders tyle 

FixedSingle 

Text 

"" <Kosongkan> 

TextAlign 

MiddleLeft 


k. Untuk Properties dari Label “lblStock" (10) : 


Properties 

Keterangan 

Name 

"lblStock" 

AutoSize 

False 

Borders tyle 

FixedSingle 

Text 

<Kosongkan> 

TextAlign 

MiddleLeft 


1. Untuk Properties dari Button “btnFirst" (11) : 


Properties 

Keterangan 

Name 

"btnFirst" 

Text 

"«" 


m. Untuk Properties dari Button “btnPrev" (12) : 


Properties 

Keterangan 

Name 

"btnPrev" 

Text 



n. Untuk Properties dari Label “lbllnfo" (13) : 


Properties 

Keterangan 

Name 

"lbllnfo" 

AutoSize 

False 

Borders tyle 

FixedSingle 

Text 

"" <Kosongkan> 

TextAlign 

MiddleLeft 


o. Untuk Properties dari Button “btnNext” (14) : 


Properties 

Keterangan 

Name 

"btnNext" 

Text 

">" 
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p. Untuk Properties dari Button “btnLast 1 ' (15) : 


Properties 

Keterangan 

Name 

"btnLast” 

Text 

"»” 


4. Tampilan di atas memiliki deklarasi pada header yakni: 

using System.Data.SqlClient; 

5. Tampilan di atas memiliki deklarasi variable global yakni: 

SqlConnection conn; 

SqlDataAdapter da; 

DataSet ds; 

int pos; 

Dideklarasikan 3 (tiga) buah objek untuk keperluan koneksi, Data Adapter, dan DataSet, serta 1 (satu) 
variabel "pos” bertipe integer, dimana variabel "pos” digunakan sebagai penanda indeks record yang 
sedang aktif / dibaca. 

6. Tampilan di atas memiliki 1 (satu) prosedur buatan dengan nama prosedur "readProduct” dengan kode 
program sebagai berikut: 

void readProduct() { 

DataRowCollection rec = ds.Tables[ "tblProduct” ].Rows; 
lblProdName.Text = rec[pos] ["ProductName"] .ToStringQ; 
lblCate.Text = rec[pos] [ "CategoryName" ] .ToStringQ; 
lblDesc.Text = rec[pos] ["Description"] .ToStringQ; 
lblPrice.Text = rec[pos] ["UnitPrice"] .ToStringQ; 
lblStock.Text = rec[pos] ["UnitsInStock"] .ToStringQ; 
lbllnfo.Text = String. Format("Record {0} of {1} records", 
pos + 1 , rec.Count); 

> 

Penjelasan untuk kode program di atas adalah : 

Dideklarasikan 1 (satu) objek DataRowCollection "rec” untuk menyimpan semua record yang dibaca 
dari tabel "tblProduct” yang ada di dalam DataSet "ds”. 

Label "lblProdName” ditampilkan dengan nilai dari field "ProductName" yang dibaca dari 
DataRowCollection "rec” pada posisi indeks record yang diambil dari nilai variabel "pos”. 

Label "lblCate” ditampilkan dengan nilai dari field "CategoryName" yang dibaca dari 
DataRowCollection "rec” pada posisi indeks record yang diambil dari nilai variabel "pos”. 

Label "lblDesc” ditampilkan dengan nilai dari field "Description” yang dibaca dari DataRowCollection 
"rec” pada posisi indeks record yang diambil dari nilai variabel "pos”. 

Label "lblPrice” ditampilkan dengan nilai dari field "UnitPrice” yang dibaca dari DataRowCollection 
"rec” pada posisi indeks record yang diambil dari nilai variabel "pos”. 

Label "lblStock” ditampilkan dengan nilai dari field "UnitsInStock” yang dibaca dari 
DataRowCollection "rec” pada posisi indeks record yang diambil dari nilai variabel "pos”. 

Label "lbllnfo” ditampilkan informasi tentang posisi record yang dibaca dari total record yang ada pada 
DataRowCollection "rec”. 
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7. Untuk masing-masing objek dari rancangan tampilan di atas, memiliki Event dengan kode program sebagai 
berikut: 

a. Event "Load” dari Form : 

conn = new SqlConnection( "Server = localhost; 

Data Source = localhost\\< nama DataSource >; 
Database = Northwind; 

Integrated Security = SSPI"); 

conn.OpenQ; 

ds = new DataSet(); 

da = new SqlDataAdapter("Select P.ProductName, C.CategoryName, 

C-Description, P-UnitPrice, P.UnitsInStock From Products P Inner loin 
Categories C On P.CategorylD = C.CategorylD", conn); 
da.Fill(ds J "tblProduct"); 
pos = 0; 
readProduct(); 

Penjelasan untuk kode program di atas adalah : 

> Untuk potongan kode program : 

conn = new SqlConnection("Server = localhost; 

Data Source = localhost\\< nama DataSource >; 
Database = Northwind; 

Integrated Security = SSPI"); 

conn.OpenQ; 

ds = new DataSet Q; 

Membuka koneksi database pada SqlConnection "conn”, dimana lokasi Server berada pada 
localhost, dan database yang diakses adalah database "Northwind”. 

Membuat objek DataSet "ds” yang akan digunakan untuk menyimpan hasil query. 

> Untuk potongan kode program : 

da = new SqlDataAdapter( "Select P.ProductName, C.CategoryName, 

C.Description, P.UnitPrice, P.UnitsInStock From Products P Inner 
loin Categories C On P.CategorylD = C.CategorylD " , conn); 
da.Fill(ds, "tblProduct"); 
pos = 0; 
readProduct(); 

Menyatakan perintah SQL ke dalam SqlDataAdapter "ds” dengan menggunakan 
SqlConnection "conn", dimana perintah SQL tersebut berupa SELECT untuk meng-query 
beberapa field dari gabungan 2 (dua] tabel. 

Hasil query dari perintah SQL tersebut kemudian akan disimpan ke dalam DataSet "ds” dengan 
nama tabel "tblProduct”. 

PENTING !!! Tabel "tblProduct" tersebut hanya berada di dalam memori saja (Tidak 
berada di dalam database "Northwind”). 

Menset nilai dari variabel "pos” adalah 0 (Nol], dimana nilai 0 menyatakan posisi record 
pertama. 

Memanggil prosedur buatan "readProduct". 
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b. Event "Click” dari Button "btnFirst”: 

pos = 0; 
readProductQ; 

Penjelasan untuk kode program di atas adalah : 

Menset nilai dari variabel "pos” adalah 0 (Nol], dimana nilai 0 menyatakan posisi record 
pertama. 

Memanggil prosedur buatan "readProduct”. 

c. Event "Click” dari Button "btnPrev”: 

if (pos > 0) { 
pos--; 

readProductQ; 

> 

Penjelasan untuk kode program di atas adalah : 

Jika posisi record belum berada pada posisi record pertama, maka : 

Menset nilai dari variabel "pos” adalah dikurangi dengan 1 (satu], dimana menyatakan 
posisi record mundur 1 (satu] posisi. 

Memanggil prosedur buatan "readProduct”. 

d. Event "Click” dari Button "btnNext”: 

if (pos < ds.Tables ["tblProduct"] .Rows.Count - 1) { 
pos++; 

readProductQ; 

> 

Penjelasan untuk kode program di atas adalah : 

Jika posisi record belum berada pada posisi record terakhir, maka : 

Menset nilai dari variabel "pos” adalah ditambahkan dengan 1 [satu], dimana menyatakan 
posisi record maju 1 (satu] posisi. 

Memanggil prosedur buatan "readProduct”. 

e. Event "Click” dari Button "btnLast”: 

pos = ds.Tables["tblProduct"] .Rows.Count - 1; 
readProductQ; 

Penjelasan untuk kode program di atas adalah : 

Menset nilai dari variabel "pos” adalah total record dikurangi 1 (Satu], dimana nilai tersebut 
menyatakan posisi record terakhir. 

Memanggil prosedur buatan "readProduct”. 
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8. Dari contoh kasus sederhana ini, jika setelah selesai dirancang dan dituliskan kode program untuk 
Event yang ada di atas, maka akan memiliki tampilan video sebagai berikut: 


□Select P.ProductNamej C.CategoryName, 
P.UnitPrice, P.UnitsInStock 
From Products P 
Inner loin Categories C 
On P.CategoryID = C.CategoryID 


C.Descripticn, 






100 •/. - 


Note : Memerlukan Adobe Flash Player untuk dapat memutar video di atas. 
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